home *** CD-ROM | disk | FTP | other *** search
/ Dos/V Magazine 1995 October 15 / CD [VMAG951015].bin / _demo / nekodemo / rtrv / shared.dir / 00363_PreviousHAIKU.ls < prev    next >
Encoding:
Text File  |  1995-05-10  |  286 b   |  16 lines
  1. on mouseUp
  2.   global gcurrentnumber, gtpoem
  3.   if gcurrentnumber <= 0 then
  4.     set gcurrentnumber to 0
  5.     beep(1)
  6.   else
  7.     set gcurrentnumber to gcurrentnumber - 1
  8.     killpuppet(2)
  9.     killpuppet(15)
  10.     killpuppet(16)
  11.     killpuppet(17)
  12.     killpuppet(18)
  13.     go("NEW")
  14.   end if
  15. end
  16.